home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03108_Script_BLACK OUT SCREEN < prev    next >
Text File  |  1996-04-01  |  927b  |  28 lines
  1. -- -----------------------------------------------------------
  2. -- Handler blackOutScreen sets screen behind the director movie
  3. -- to black.
  4.  
  5. on blackOutScreen
  6.   global blackScreenObj
  7.   if (the machineType <> 256) and voidp(blackScreenObj) then
  8.     -- mac and hasn't been done already. the second test allows the author to
  9.     -- keep initializing the program without getting the error message that
  10.     -- the object already exists.
  11.     openXObjHandler "Backdrop XObj"
  12.     put backdrop(mNew) into blackScreenObj
  13.     blackScreenObj(mShow)
  14.   end if
  15. end
  16.  
  17. -- -----------------------------------------------------------
  18. -- Handler unBlackOutScreen disposes of the xobject used to
  19. -- black out the screen and closes the xobject library.
  20.  
  21. on unBlackOutScreen
  22.   global blackScreenObj
  23.   
  24.   if (the machineType <> 256) then -- mac
  25.     blackScreenObj(mdispose)
  26.     closeXObjHandler "Backdrop XObj"
  27.   end if
  28. end